
 1000  *--------------------------------
 1010  *      YES/NO SUBROUTINE
 1020  *
 1030  *      RETURN .NE. IF NEITHER "Y" NOR "N"
 1040  *             .EQ. AND .CC. IF "Y"
 1050  *             .EQ. AND .CS. IF "N"
 1060  *--------------------------------
 1070  STROBE     .EQ $C010
 1080  MON.RDKEY  .EQ $FD0C
 1090  MON.CH     .EQ $24
 1100  MON.BASE   .EQ $28 AND $29
 1110  *--------------------------------
 1120  YES.NO
 1130         STA STROBE
 1140         JSR MON.RDKEY
 1150         LDY MON.CH
 1160         CMP #'N+$80
 1170         BEQ .1
 1180         CMP #'Y+$80
 1190         BNE .2
 1200         CLC
 1210  .1     STA (MON.BASE),Y
 1220  .2     RTS

